
(map (lambda (e) (integer-wrap e 1 3))
     (iota 10))				; => (3 1 2 3 1 2 3 1 2 3)

(map ++ '(-1 0 1))			; => (0 1 2)

(let ((n 1))
  (++! n)
  n)					; => 2

(map next-power-of-two
     '(8192 1024 1025 1023 16384 2))	; => (8192 1024 2048 1024 16384 2)

(map power-of-two? 
     '(8192 1024 1025 1023 16384 2))	; => (#t #t #f #f #t #t)

(map next-multiple-of
     '(255 256 257) '(256 256 256))	; => (256 512 512)

(map (lambda (n) (list n (next-multiple-of n 3)))
     (iota 19))

